В массиве из 10 элементов найти и отпечатать колличество и сумму элементов, значение которых больше последнего элемента массива- QBasic(Бейсик)

CLS: kol=0: sum=0
RANDOMIZE TIMER
DIM A(10)
  
FOR i=1 to 10
  A(i)=rnd*50-rnd*30: PRINT A(i)' генерируем случайные значения массива
NEXT
FOR i=1 to 9
  IF A(i)>A(10) then kol=kol+1: sum=sum+A(i)' считаем кол-во и сумму элементов, которые больше последнего
Next
  
COLOR 2
PRINT "kol:"; kol
color 4
Print "sum="; sum
End

В массиве из 10 элементов найти и отпечатать колличество и сумму элементов, значение которых больше последнего элемента массива- QBasic(Бейсик)

Похожие записи/страницы:

Leave a Comment